home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / bbs / cnet5demo.lha / cnet / ircrexx / test.rexx < prev    next >
OS/2 REXX Batch file  |  1999-03-23  |  237b  |  13 lines
  1. /* ORC - test script      */
  2. options results
  3. parse arg orcport a1
  4. a1 = trim(a1)
  5.  
  6. if show('P', orcport) then do
  7.   address value orcport
  8.     cnetirccmd '/"'a1
  9.     cnetircvar a1
  10.     orccol '00'||'181b5b'x||'31;43m'
  11.     say '-'result'-'
  12. end
  13.